home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / BORLAND TURBO ASSEMBLER / FILT.PAK / OFILREAD.ASM < prev    next >
Assembly Source File  |  1996-01-10  |  2KB  |  92 lines
  1.  
  2. ;    FILENAME: OFILREAD.ASM
  3. ;    Copyright (c) 1988, 1993 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements the routine FileRead. FileRead
  6. ;    reads from a file.
  7. ;
  8. ;    ASSEMBLY INSTRUCTIONS: To assemble this module use the following 
  9. ;    TASM command line. 
  10. ; 
  11. ;        TASM ofilread
  12.  
  13. include globals.inc
  14.  
  15. _TEXT   segment
  16.  
  17.     FileRead proc
  18.  
  19.     ;    Input 
  20.     ;        bx - file record offset
  21.     ;        cx - buffer size
  22.     ;        di - location of bytes
  23.     ;    Output
  24.     ;        cf - set if error occurred
  25.     ;        ax - error code
  26.     ;        (cf set and ax = 0 if EOF)
  27.     ;            0 - if EOF and 0 bytes are read
  28.     ;        cx - number of bytes read
  29.     ;    Registers modified
  30.     ;        None
  31.  
  32.     pushf
  33.     push    cx
  34.     push    dx
  35.     push    di
  36.     push    si
  37.     cld
  38.     mov     dx, [bx+6]      ;buffer segment
  39.  
  40.     ;--- read bytes from buffer
  41.  
  42. filred1:
  43.     mov     ax, [bx+10]     ;bytes in buffer
  44.     mov     si, [bx+4]      ;data pointer
  45.     sub     ax, si          ;bytes available
  46.     jz      filred3         ;jump if none
  47.  
  48.     push    ds
  49.     push    cx
  50.     cmp     ax, cx          ;check if enough
  51.     jae     filred2
  52.     mov     cx, ax          ;read what's available
  53.  
  54. filred2:
  55.     push    cx
  56.     mov     ds, dx
  57.     rep     movsb                   ;copy bytes
  58.     pop     ax
  59.     pop     cx
  60.     pop     ds
  61.     mov     [bx+4], si      ;save data pointer
  62.     sub     cx, ax          ;get bytes not yet read
  63.     jz      filred4         ;jump if finished
  64.  
  65.     ;--- read into buffer
  66.  
  67. filred3:
  68.     call    FileFill        ;read a buffer full
  69.     jnc     filred1
  70.  
  71.     ;--- finished
  72.  
  73. filred4:
  74.     pop     si
  75.     pop     di
  76.     pop     dx
  77.     pop     cx
  78.     jc      filred5
  79.     popf
  80.     clc
  81.     ret
  82.  
  83. filred5:
  84.     popf
  85.     stc
  86.     ret
  87.     FileRead endp
  88.  
  89. _TEXT    ends
  90.  
  91. end
  92.